Private Sub InitNext()
        InitSort()
        Dim iRowCount As Integer = tblContent.Rows.Count() - 1
        Dim bSuccess As Boolean = False
        Dim i As Integer = 0
        While Not bSuccess
            If tblContent.Item("colTurn", i).Value = True Then
                If (i + 1) < iRowCount Then
                    tblContent.Item("colTurn", i).Value = False
                    tblContent.Item("colName", i).Selected = False
                    tblContent.Item("colTurn", i + 1).Value = True
                    tblContent.Item("colName", i + 1).Selected = True
                    bSuccess = True
                Else
                    tblContent.Item("colturn", i).Value = False
                    tblContent.Item("colName", i).Selected = False
                    tblContent.Item("colTurn", 0).Value = True
                    tblContent.Item("colName", 0).Selected = True
                    bSuccess = True
                    i = 0
                End If
            Else
                i += 1
            End If
        End While
    End Sub